object Srv_WbKSForm: TSrv_WbKSForm
  Left = 194
  Top = 109
  Width = 673
  Height = 532
  BorderWidth = 6
  Caption = #33310#24330#32771#29983#21517#21333
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 653
    Height = 443
    Align = alClient
    Caption = #33310#24330#32771#29983#21517#21333#65306
    TabOrder = 0
    object dxDBGrid1: TdxDBGrid
      Left = 2
      Top = 16
      Width = 649
      Height = 425
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = #23398#21495
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      PopupMenu = PopupMenu1
      TabOrder = 0
      DataSource = DataSource1
      Filter.Criteria = {00000000}
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
      object dxDBGrid1Column1: TdxDBGridColumn
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = #24207#21495
      end
      object dxDBGrid1Column2: TdxDBGridMaskColumn
        Width = 60
        BandIndex = 0
        RowIndex = 0
        FieldName = #23398#21495
      end
      object dxDBGrid1Column3: TdxDBGridMaskColumn
        Width = 60
        BandIndex = 0
        RowIndex = 0
        FieldName = #22995#21517
      end
      object dxDBGrid1Column4: TdxDBGridMaskColumn
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = #32771#35797#29366#24577
      end
      object dxDBGrid1Column5: TdxDBGridMaskColumn
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = #32771#29983#26426#22120#21517
      end
      object dxDBGrid1IP: TdxDBGridMaskColumn
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = #32771#29983'IP'
      end
      object dxDBGrid1Column7: TdxDBGridDateColumn
        Width = 130
        BandIndex = 0
        RowIndex = 0
        FieldName = #24320#32771#26102#38388
      end
      object dxDBGrid1Column8: TdxDBGridDateColumn
        Width = 130
        BandIndex = 0
        RowIndex = 0
        FieldName = #20132#21367#26102#38388
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 443
    Width = 653
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      653
      43)
    object BitBtn2: TBitBtn
      Left = 304
      Top = 12
      Width = 75
      Height = 25
      Caption = #21047#26032'[&F]'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 575
      Top = 12
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #36864#20986'[&X]'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn3Click
    end
    object BitBtn1: TBitBtn
      Left = 216
      Top = 12
      Width = 75
      Height = 25
      Caption = #26597#35810'[&S]'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object Edit1: TEdit
      Tag = 9999
      Left = 61
      Top = 14
      Width = 140
      Height = 22
      TabOrder = 3
    end
    object ComboBox1: TComboBox
      Tag = 9999
      Left = 4
      Top = 14
      Width = 51
      Height = 22
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 4
      Text = #23398#21495
      Items.Strings = (
        #23398#21495
        #22995#21517)
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 183
    Top = 128
  end
  object PopupMenu1: TPopupMenu
    Left = 256
    Top = 176
    object N5: TMenuItem
      Caption = #35774#20026#32771#23436#20132#21367
      OnClick = N5Click
    end
    object N1: TMenuItem
      Caption = #35774#20026#25277#39064#37325#32771
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #35774#20026#25442#26426#32487#32771
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #33310#24330#21517#21333#23548#20986
      OnClick = N4Click
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.xls'
    FileName = #33310#24330#21517#21333'.xls'
    Filter = 'Excel '#25991#20214'(*.xls)|*.xls'
    FilterIndex = 0
    Left = 296
    Top = 176
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 
      'select xs.'#23398#21495',xs.'#22995#21517',ks.'#32771#35797#29366#24577',ks.'#32771#29983#26426#22120#21517',ks.'#32771#29983'IP,ks.'#24320#32771#26102#38388',ks.'#20132#21367#26102#38388' from' +
      ' '#32771#29983#20449#24687#34920' xs inner join '#32771#29983#32771#35797#34920' ks on ks.'#23398#21495'=xs.'#23398#21495
    Params = <>
    ProviderName = 'Srv_DataSetProvider'
    RemoteServer = RDataForm.MyConnection
    AfterPost = ClientDataSet1AfterPost
    OnCalcFields = ClientDataSet1CalcFields
    Left = 152
    Top = 128
    object ClientDataSet1Field: TIntegerField
      FieldKind = fkCalculated
      FieldName = #24207#21495
      Calculated = True
    end
    object ClientDataSet1CDSDesigner: TStringField
      FieldName = #23398#21495
      Size = 8
    end
    object ClientDataSet1CDSDesigner2: TStringField
      FieldName = #22995#21517
      Size = 8
    end
    object ClientDataSet1CDSDesigner3: TStringField
      FieldName = #32771#35797#29366#24577
      Size = 50
    end
    object ClientDataSet1CDSDesigner4: TStringField
      FieldName = #32771#29983#26426#22120#21517
    end
    object ClientDataSet1IP: TStringField
      FieldName = #32771#29983'IP'
      Size = 15
    end
    object ClientDataSet1CDSDesigner5: TDateTimeField
      FieldName = #24320#32771#26102#38388
    end
    object ClientDataSet1CDSDesigner6: TDateTimeField
      FieldName = #20132#21367#26102#38388
    end
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Update_DataSetProvider'
    RemoteServer = RDataForm.MyConnection
    AfterPost = ClientDataSet1AfterPost
    Left = 232
    Top = 128
  end
end
